N {
	i=0;
	data[0]=0;
	a=0;
	c=0;
	d=0;
	f=0;
	FS="[,]";
}
{ 
	a=$2+a;
	c=$3+c;
	da[i]=$2
	ta[i]=$3
	i++;
}
END{
#	print i
	b=a/i;
	d=c/i;
	for(j=0;j<i;j++){
		m=(da[j]-b)*(ta[j]-d)
		f=m+f
	}
	cc=f/(i-1)
	print  "数学平均分为" b "\n语文平均分为" d "\n协方差为" cc 
}

